
Imports System
Imports System.Collections

Namespace _2bMatesSite.BO
	''' <summary>
	''' Summary description for UserFriendItems.
	''' </summary>
	Public Class UserFriendItems
		Inherits RandomizedList
		Private list As ArrayList

		Public Sub New(ByVal friendItemsList As ICollection)
			rnd = New Random()
			list = New ArrayList(friendItemsList)
		End Sub

		Public Overloads Overrides Function GetList() As IList
			Return list
		End Function
	End Class
End Namespace






